home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / Origami / bindings / fun / next-char < prev    next >
Encoding:
Text File  |  1996-09-27  |  924 b   |  43 lines
  1. ;OCL{{{}}}
  2. ;OCL{{{  comments
  3. ; jump to next non-space character.
  4. ; fold-comments are ignored. folds are closed, when leaving them.
  5. ;OCL}}}
  6. @if-using not(ocl-file-next-char)
  7.   @use (ocl-file-next-char)
  8.   ;OCL{{{  next-non-space-on-line
  9.   ( deffun next-non-space-on-line
  10.      ( do
  11.         ( forward-character )
  12.        while and(test-char-set space not(test-end-line))
  13.      )
  14.   )
  15.   ;OCL}}}
  16.   ;OCL{{{  next-text-line
  17.   ( deffun next-text-line
  18.      ( do
  19.         ( next-line
  20.           case
  21.            ( test-fold-line ( open-fold ) )
  22.            ( test-end-fold ( close-fold ) )
  23.           esac
  24.         )
  25.        while not(or(test-bottom,test-text))
  26.      )
  27.   )
  28.   ;OCL}}}
  29.   ;OCL{{{  forward-text-character
  30.   ( deffun forward-text-character
  31.      ( forward-character
  32.        if test-end-line
  33.         ;OCL{{{  next textline
  34.         ( next-text-line
  35.           beginning-of-line
  36.         )
  37.         ;OCL}}}
  38.        fi
  39.      )
  40.   )
  41.   ;OCL}}}
  42. @fi
  43.